home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / FORTRAN Goodies / Launch Library / Demo.f next >
Encoding:
Text File  |  1991-12-03  |  728 b   |  35 lines  |  [TEXT/MPS ]
  1. c
  2. c A demonstration of the F_Launch library call.
  3. c
  4. c Pass it a single character argument, the
  5. c  name of the application to launch. If
  6. c  the argument is empty (all spaces), invokes
  7. c  a dialog so the user can select an application.
  8. c
  9. c F_Launch works under System 6 or 7.
  10. c You must compile using FORTRAN 3.0 or later.
  11. c
  12. c To use F_Launch, include the library Launch.o
  13. c  in your Link commands. Highlight the following
  14. c  lines and press enter to run the demo:
  15.  
  16. !!IFC FALSE
  17.  
  18. # build commands for Launch demo
  19. fortran Demo.f
  20. linkfortran Demo Demo.f.o Launch.o
  21. # run the demo
  22. Demo
  23.  
  24. !!ENDC
  25.  
  26. c
  27.     program Demo
  28.     character*40    name
  29.     
  30.     write(*,'(x,a,$)') 'Name of Application to Launch: '
  31.     read(*,'(a)')    name
  32.     call F_Launch(name)
  33.     end
  34.     
  35.